home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / TAMPA.CMD < prev    next >
Encoding:
Text File  |  1987-12-27  |  2.8 KB  |  164 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"TAMPA,FL  [813]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                         ╔══╡  TAMPA BBS NUMBERS  ╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - RCPM Tampa Tech      ║"
  10. MESS"                         ║  B -                      ║"
  11. MESS"                         ║  C - GBBS Smitty's BBS    ║"
  12. MESS"                         ║  D - Micro-Informer       ║"
  13. MESS"                         ║  E - BSBBS                ║"
  14. MESS"                         ║  F -                      ║"
  15. MESS"                         ║  M - Manual Dial          ║"
  16. MESS"                         ║  Q - Return to MAIN menu  ║"
  17. MESS"                         ║                           ║"
  18. MESS"                         ╠═══════════════════════════╣"
  19. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  20. MESS"                         ║                           ║"
  21. MESS"                         ╚═══════════════════════════╝"
  22. LOCA 17,27
  23. GET S0
  24. TOP:
  25. FIND S0"A"
  26. IF FOUN
  27. ASSI S6"RCPM Tampa Technical"
  28. ASSI S8"2544637"
  29. GOSU REDIALER
  30. ELSE
  31. ENDI
  32. FIND S0"B"
  33. IF FOUN
  34. ASSI S6"                  "
  35. ASSI S8"       "
  36. GOSU REDIALER
  37. ELSE
  38. ENDI
  39. FIND S0"C"
  40. IF FOUN
  41. ASSI S6"GBBS Smitty's BBS"
  42. ASSI S8"8758096"
  43. GOSU REDIALER
  44. ELSE
  45. ENDI
  46. FIND S0"D"
  47. IF FOUN
  48. ASSI S6"Micro Informer"
  49. ASSI S8"8841506"
  50. GOSU REDIALER
  51. ELSE
  52. ENDI
  53. FIND S0"E"
  54. IF FOUN
  55. ASSI S6"BSBBS"
  56. ASSI S8"8856187"
  57. GOSU REDIALER
  58. ELSE
  59. ENDI
  60. FIND S0"F"
  61. IF FOUN
  62. ASSI S6"                     "
  63. ASSI S8"       "
  64. GOSU REDIALER
  65. ELSE
  66. ENDIFI
  67. FIND S0"M"
  68. IF FOUN
  69. CLEA
  70. LOCA 5,20
  71. MESS"NUMBER TO DIAL:"
  72. LOCA 5,36
  73. ASSI S6"MANUAL DIAL"
  74. GET S8
  75. GOSU REDIALER
  76. ELSE
  77. ENDI
  78. FIND S0"Q"
  79. IF FOUN
  80. CLEA
  81. TRAN"!@!"
  82. WAIT"@"
  83. TRAN"D!"
  84. WAIT"@"
  85. CLEA
  86. LOCA 1,0
  87. PAUS 1
  88. EXEC"SELCITY.CMD"
  89. ELSE
  90. ENDI
  91. FIND S7"MORE"
  92. IF FOUN
  93. ASSI S7"    "
  94. GOTO TOP
  95. ELSE
  96. ENDI
  97. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  98. MESS"RETURNING TO MAIN MENU"
  99. ALAR
  100. ASSI S0"Q"
  101. GOTO TOP
  102. REDIALER:
  103. ISFI S6
  104. IF NOT SUCC
  105. LOCA 5, 35
  106. MESS"DIALING"
  107. MESS" "
  108. MESS S6
  109. MESS S8
  110. TRAN"I!"
  111. PAUS 1
  112. TRAN"ATZ!"
  113. WAIT"OK"
  114. TRAN"^E!"
  115. WAIT"READY"
  116. TRAN"D"
  117. TRAN S8
  118. TRAN"!"
  119. RGET S9
  120. RGET S9 80 40
  121. RGET S9 40 40
  122. RGET S9 40 40
  123. GOTMESS:
  124. FIND S9"BUSY"
  125. IF FOUN
  126. MESS S6
  127. MESS S8
  128. MESS"BUSY; GOING TO NEXT NUMBER"
  129. MESS"**************************************************************"
  130. ASSI S7"MORE"
  131. GOTO RTRN
  132. ENDI
  133. FIND S9"ANSWER TONE"
  134. IF FOUN
  135. SET PARI NONE
  136. SET DATA 8
  137. CLEA
  138. MESS"CONNECTED TO"
  139. MESS S8
  140. MESS S6
  141. MESS S1
  142. ALAR
  143. EXIT
  144. ELSE
  145. FIND S9"RINGING"
  146. IF FOUN
  147. LOG OPEN S6
  148. MESS"NO ANSWER - STILL RINGING"
  149. MESS S8
  150. MESS S6
  151. MESS S1
  152. LOG CLOSE
  153. TRAN"^C^D^C"
  154. MESS"**************************************************************"
  155. GOTO RTRN
  156. ELSE
  157. GOTO GOTMESS
  158. ENDI
  159. ENDI
  160. ENDI
  161. ENDI
  162. RTRN:
  163. RETURN
  164.